home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / DCLAP 6d / dclap6d / DClap / DObject.cpp < prev    next >
Text File  |  1996-07-05  |  2KB  |  81 lines
  1. // DObject.cp
  2.  
  3. #include "Dvibrant.h"
  4. #include "DObject.h"
  5.  
  6.  
  7.  
  8. DObject::DObject() 
  9. { 
  10.   fOwners= 1; 
  11.   fClassName= "DObject";
  12.   //fClassSize= sizeof(DObject); // this is bad news -- 
  13.           // !! DObjects created statically don't know their fClassSize !?
  14.           // at least for Clone this causes problems.
  15. }
  16.  
  17. void killit( DObject* victim)
  18. {
  19.     delete victim;
  20. }
  21.  
  22. Boolean DObject::suicide(void) 
  23. { 
  24.     if (--fOwners < 1) { 
  25.         killit(this); //delete this; 
  26.         return true; 
  27.         }
  28.     else 
  29.         return false;
  30. }
  31.  
  32. Boolean DObject::suicide(short ownercount)
  33. {
  34.     if ((fOwners= ownercount) < 1) {
  35.         killit(this); //delete this; 
  36.         return true; 
  37.         }
  38.     else 
  39.         return false;
  40. }
  41.  
  42.  
  43. void*    DObject::operator new( size_t objSize) 
  44. {    
  45.             // assume c++ knows how to new an object ...
  46.     void* theObject = ::operator new( objSize); // = Nlm_MemNew( objSize); 
  47.             // but we still want to remember its size!
  48.     ((DObject*) theObject)->fClassSize= objSize;
  49.     return  theObject;
  50. } 
  51.  
  52. void DObject::operator delete( void* objStorage)
  53. {
  54.             // assume c++ knows how to delete an object ...
  55.      ::operator delete(objStorage);  // Nlm_MemFree(objStorage);  
  56. }
  57.  
  58.  
  59.  
  60. DObject*    DObject::Clone(void)
  61. {
  62.     return this->BasicClone();
  63. }
  64.  
  65. DObject*    DObject::BasicClone(void)
  66. {
  67. #if 0
  68.         // this is okay if we use Nlm_Mem for new/delete
  69.     DObject* result= (DObject *) Nlm_MemDup( this, fClassSize);
  70. #else
  71.         // this is best if we use default new/delete
  72.     DObject* result= (DObject *) ::operator new(fClassSize); 
  73.     Nlm_MemMove(result, this, fClassSize);
  74. #endif
  75.   result->fOwners= 1; // reset this as if it were a new()
  76.     return  result;
  77. }  
  78.  
  79.  
  80.  
  81.